Option Explicit
Sub E_Sample025()
    'ոE_Data01 / E_Data02u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCell As Range
    Dim mySht  As Worksheet
    Dim i      As Long
    With Worksheets
        'wӷdP
        Set myRng1 =.Item("E_Data01").Range("A1").CurrentRegion.Columns(1)
        Set myRng2 =.Item("E_Data02").Range("A1").CurrentRegion.Columns(1)
        Set mySht = .Add(After:=.Item(.Count))	'u@sW
    End With
    i = 0
    For Each myCell In myRng1.Cells
        If WorksheetFunction.CountIf(myRng2, _
            myCell.Value) > 0 Then
            i = i + 1
            myCell.EntireRow.Copy mySht.Cells(i, 1)
        End If
    Next
    Set myRng1 = Nothing				'
    Set myRng2 = Nothing
    Set myCell = Nothing
    Set mySht = Nothing
End Sub
